home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Turnbull China Bikeride
/
Turnbull China Bikeride - Disc 2.iso
/
STUTTGART
/
COMM
/
INTERNET
/
MAIL
/
TRANSPORTS
/
taylor
/
DoMail
< prev
next >
Wrap
Text File
|
1994-09-19
|
965b
|
35 lines
| > DoMail
|
| Syntax: DoMail <Filename> <Addresses>
|
| DoMail passes the specified file through Rmail. It performs no error
| checking on the file, and assumes that the file contains a valid header.
|
| Author: Gunnar Zötl
| Date: 17-Sep-1994
| Last Modified: 19-Sep-1994
|
| Ensure enough memory for rmail to run, you may need more when using smail
|
Wimpslot -min 640k
|
| this gets around a problem with the C library, which sometimes seems
| confused then receiving a <system$variable> together with I/O redirection.
|
Set Alias$DoMailIt rmail %*1 < %0
|
| we assume that sending the mail will succeed.
|
Set NewsBase$ReturnInfo Mail sent
DoMailIt
Set NewsBase$ReturnCode <Sys$ReturnCode>
|
| If sending did not succeed, we alter the Info for NewsBase here.
|
If "<NewsBase$ReturnCode>" <> "0" Then Set NewsBase$ReturnInfo Mail failed
|
| now remove the file sendmail passed us, and unset the helper macro.
|
remove %0
unset alias$DoMailIt